ETO Development Tools 2/ETO Development Tools 2.iso/Tools - Objects/ResEdit/ResEdit 2.0b2/Examples/CExamples/Source/ResDisp.a

Text File | 1990-04-02 | 5.8 KB | 212 lines | [TEXT/MPS ]

; File ResDisp.a
;
; COPYRIGHT (C) 1984-1990 Apple Computer,Inc.
; All rights reserved

; Linking with this code allows Pickers, Editors or whatever to call
; certain routines in ResEdit’s CODE segments.

    PROC

ApplScratch    equ    $a78


            EXPORT      CallInfoUpdate
            EXPORT      PassMenu


; Calls back to main program
            EXPORT    CallInfoUpdate

            EXPORT    PassMenu
            EXPORT    GiveSubEBirth
            EXPORT    GetQuickDrawVars
            EXPORT    NeedToRevert
            EXPORT    DisplayStrAlert

            EXPORT    WindAlloc
            EXPORT    SendRebuildToPickerAndFile
            EXPORT    WindReturn
            EXPORT    WindList
            EXPORT    WindOrigin

            EXPORT    AbleMenu

            EXPORT    AddNewRes
            EXPORT    BubbleUp
            EXPORT    BuildType
            EXPORT    GrowMyWindow
            EXPORT    ConcatStr
            EXPORT    PickStdHeight
            EXPORT    PickStdWidth
            EXPORT    CurrentRes
            EXPORT    DupPick
            EXPORT    SysResFile
            EXPORT    RevertThisResource
            EXPORT    FixHand
            EXPORT    GetStr
            EXPORT    Get1Index
            EXPORT    RemoveResource
            EXPORT    Get1Res
            EXPORT    GiveEBirth
            EXPORT    HandleCheck
            EXPORT    MetaKeys
            EXPORT    NewRes
            EXPORT    PickEvent
            EXPORT    PickInfoUp
            EXPORT    PickMenu
            EXPORT    SendRebuildToPicker
            EXPORT    ScrapCopy
            EXPORT    ScrapEmpty
            EXPORT    ScrapPaste
            EXPORT    SetResChanged
            EXPORT    SetETitle
            EXPORT    ShowInfo

            EXPORT    MyCalcMask

            EXPORT    GiveThisEBirth

            EXPORT    KillCache
            EXPORT    DefaultListCellSize
            EXPORT    DoKeyScan
            EXPORT    TypeToString
            EXPORT    FrameDialogItem
            EXPORT    FlashDialogItem
            EXPORT    AlreadyOpen
            EXPORT    EditorWindSetup
            EXPORT    GetWindowTitle
            EXPORT    Abort
            EXPORT    DisplayAlert
            EXPORT    WasAborted
            EXPORT    GetType
            EXPORT    CheckError
            EXPORT    CloseNoSave
            EXPORT    SetTheCursor
            EXPORT    RestoreRemovedResources
            EXPORT    MapResourceType
            EXPORT    BeautifulUnique1ID
            EXPORT    PickerWindSetup
            EXPORT    UseAppRes
            EXPORT    GetNamedStr
            EXPORT    PrintWindow
            EXPORT    PrintSetup
            EXPORT    DrawLDEF
            EXPORT    DoPickBirth
            EXPORT    WritePreferences
            EXPORT    GetErrorText
            EXPORT    CenterDialog
            EXPORT    PlaySyncSound
            EXPORT    ResourceIDHasChanged
            EXPORT    WasItLoaded
            EXPORT    ColorAvailable
            EXPORT    ResEditGet1Resource
            EXPORT    DrawMBarLater
            EXPORT    FindOwnerWindow

            EXPORT    InstallColorPalettePopup
            EXPORT    DrawColorPopup
            EXPORT    ColorPalettePopupSelect
            EXPORT    DeinstallColorPalettePopup


CallOut                JSR    DivingBoard        ;  1        UNUSED!
WindAlloc           JSR DivingBoard
SendRebuildToPickerAndFile    JSR DivingBoard
WindList            JSR DivingBoard
WindOrigin          JSR DivingBoard        ;  5
InstallColorPalettePopup    JSR    DivingBoard

; Common stuff
AbleMenu            JSR DivingBoard
DrawColorPopup        JSR DivingBoard
AddNewRes           JSR DivingBoard
BubbleUp            JSR DivingBoard        ; 10
BuildType           JSR DivingBoard
GrowMyWindow        JSR DivingBoard
ColorPalettePopupSelect        JSR DivingBoard
ConcatStr           JSR    DivingBoard
PickStdHeight        JSR    DivingBoard
PickStdWidth        JSR    DivingBoard
CurrentRes             JSR    DivingBoard
DeinstallColorPalettePopup    JSR    DivingBoard
DupPick                   JSR    DivingBoard
SysResFile             JSR    DivingBoard        ; 20
RevertThisResource    JSR    DivingBoard
FixHand                   JSR    DivingBoard
GetStr                   JSR    DivingBoard
Get1Index              JSR    DivingBoard
RemoveResource        JSR    DivingBoard
Get1Res                JSR    DivingBoard
GiveEBirth             JSR    DivingBoard
HandleCheck            JSR    DivingBoard
MetaKeys               JSR    DivingBoard
NewRes                   JSR    DivingBoard        ; 30
PickEvent              JSR    DivingBoard
PickInfoUp             JSR    DivingBoard
PickMenu               JSR    DivingBoard
SendRebuildToPicker    JSR    DivingBoard
ScrapCopy              JSR    DivingBoard
ScrapEmpty             JSR    DivingBoard
ScrapPaste             JSR    DivingBoard
SetResChanged        JSR    DivingBoard
ShowInfo               JSR    DivingBoard
SetETitle              JSR    DivingBoard        ; 40
Unused2              JSR    DivingBoard            ; Unused
Unused1               JSR    DivingBoard            ; Unused
CallInfoUpdate        JSR    DivingBoard
PassMenu               JSR    DivingBoard
GiveSubEBirth          JSR    DivingBoard
GetQuickDrawVars     JSR    DivingBoard
NeedToRevert        JSR    DivingBoard
DisplayStrAlert        JSR    DivingBoard          ; 48
MyCalcMask            JSR    DivingBoard        ; 49
GiveThisEBirth        JSR    DivingBoard        ; 50
WindReturn            JSR    DivingBoard        ; 51
KillCache            JSR    DivingBoard        ; 52
DefaultListCellSize    JSR    DivingBoard        ; 53
DoKeyScan            JSR    DivingBoard        ; 54
TypeToString        JSR    DivingBoard        ; 55
FrameDialogItem        JSR    DivingBoard        ; 56
FlashDialogItem        JSR    DivingBoard        ; 57
AlreadyOpen            JSR    DivingBoard        ; 58
EditorWindSetup        JSR    DivingBoard        ; 59
GetWindowTitle        JSR    DivingBoard        ; 60
Abort                JSR    DivingBoard        ; 61
DisplayAlert        JSR    DivingBoard        ; 62
WasAborted            JSR    DivingBoard        ; 63
GetType                JSR    DivingBoard        ; 64
CheckError            JSR DivingBoard        ; 65
CloseNoSave            JSR DivingBoard        ; 66
SetTheCursor        JSR DivingBoard        ; 67
RestoreRemovedResources JSR DivingBoard    ; 68
MapResourceType        JSR DivingBoard        ; 69
BeautifulUnique1ID    JSR DivingBoard        ; 70
PickerWindSetup        JSR    DivingBoard        ; 71
UseAppRes            JSR    DivingBoard        ; 72
GetNamedStr            JSR    DivingBoard        ; 73
PrintWindow            JSR    DivingBoard        ; 74
PrintSetup            JSR    DivingBoard        ; 75
DrawLDEF            JSR    DivingBoard        ; 76
DoPickBirth            JSR    DivingBoard        ; 77
WritePreferences    JSR    DivingBoard        ; 78
GetErrorText        JSR    DivingBoard        ; 79
CenterDialog        JSR    DivingBoard        ; 80
PlaySyncSound        JSR    DivingBoard        ; 81
ResourceIDHasChanged JSR DivingBoard    ; 82
WasItLoaded            JSR  DivingBoard    ; 83
ColorAvailable        JSR  DivingBoard    ; 84
ResEditGet1Resource    JSR  DivingBoard    ; 85
DrawMBarLater        JSR  DivingBoard    ; 86
FindOwnerWindow        JSR  DivingBoard    ; 87
            ; Max 90

DivingBoard
            LEA            CallOut+4,A1
            MOVE.L      (SP)+,A0
            SUB.L       A1,A0
            ADD.L       ApplScratch,A0
            MOVE.L      (A0),A0
            JMP            (A0)

    END